library(tidyverse)
library(caret)
library(lattice)

# Get barstool data off github
job_post <- read_csv("https://raw.githubusercontent.com/luizmalpele/StatsLearningProject/master/data/fake_job_postings.csv?token=ANQHB6TNXQAFKHFJBS6F35S6SNMZ4")
Warning in .Internal(eval(substitute(expr), envir, enclos)) :
  closing unused connection 4 (https://github.com/luizmalpele/StatsLearningProject/blob/master/data/fake_job_postings.csv)
Warning in .Internal(eval(substitute(expr), envir, enclos)) :
  closing unused connection 3 (https://github.com/luizmalpele/StatsLearningProject/blob/master/data/fake_job_postings.csv)
Parsed with column specification:
cols(
  job_id = col_double(),
  title = col_character(),
  location = col_character(),
  department = col_character(),
  salary_range = col_character(),
  company_profile = col_character(),
  description = col_character(),
  requirements = col_character(),
  benefits = col_character(),
  telecommuting = col_double(),
  has_company_logo = col_double(),
  has_questions = col_double(),
  employment_type = col_character(),
  required_experience = col_character(),
  required_education = col_character(),
  industry = col_character(),
  `function` = col_character(),
  fraudulent = col_double()
)
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShjYXJldCkNCmxpYnJhcnkobGF0dGljZSkNCg0KIyBHZXQgYmFyc3Rvb2wgZGF0YSBvZmYgZ2l0aHViDQpqb2JfcG9zdCA8LSByZWFkX2NzdigiaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL2x1aXptYWxwZWxlL1N0YXRzTGVhcm5pbmdQcm9qZWN0L21hc3Rlci9kYXRhL2Zha2Vfam9iX3Bvc3RpbmdzLmNzdj90b2tlbj1BTlFIQjZUTlhRQUZLSEZKQlM2RjM1UzZTTk1aNCIpDQpgYGANCg0KYGBge3J9DQpqb2JfcG9zdA0KYGBgDQoNCg==